برای راحتتر شدن دسترسی به این وب سایت آدرس آن را کوتاه کردیم :
www.ASANDOWNLOAD.lxb.ir
این مطلب همیشه در بالای وبلاگ می ماند و مطالب جدید همیشه زیر آن می آیند
بــه وبســـايتـــــ ما خــــوش آمديـــد
آدرس اینستاگرام: "DASHAD GH96"
Public Sub Window_OnLoad()
'Set LoadChar = AgentControl.Characters.Load ("Merlin", _
' "C:Windowsmsagentcharsmerlin.acs") 'Change to proper root depending on OS.
Set LoadChar = AgentControl.Characters.Load ("Merlin")
On Error Resume Next
Set Merlin = AgentControl.Characters ("Merlin")
Merlin.Show
Merlin.Speak ("jomleye shoma")
Merlin.MoveTo 100,500
Merlin.GestureRight
Merlin.Speak ("jomleye shoma")
Merlin.MoveTo 500,10
Merlin.Speak ("jomleye shoma")
Merlin.MoveTo 200,10
Merlin.Speak ("jomleye shoma")
Merlin.MoveTo 300,300
Merlin.Speak ("jomleye shoma")
Merlin.MoveTo 200,450
Merlin.Speak ("adrese maile shoma")
Merlin.MoveTo 500,10
Merlin.Speak ("adrese webloge shoma")
End Sub
Sub AgentControl_DragStart (ByVal ID, ByVal Button, ByVal Shift,ByVal x, ByVal y)
Merlin.Play ("Alert")
Merlin.Speak ("Pau=800vol=65535darde eshgh hamishe marashekast dad ")
End Sub
Sub AgentControl_DragCOmplete (ByVal ID, ByVal Button, ByVal Shift,ByVal x, ByVal y)
Merlin.Play ("RestPose")
End Sub
عضو شوید
عضویت سریع
آمار مطالب
آمار بازدید